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LIBSLP_LINES Fetch number of Lines per page 9 


MODULE LIBSLP_LI 6 


RHE Shg Tce number of tines per eae a32 Edit: seL1003 


NES ( 
IDENT = ‘1-00 : 
d= 


BEGIN 


PERE ESSSSOSLIIII CISTI SETS r err c ceric ii citi iti rit isi iii ii iiiiiii ts 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS RESERVED. 


S SOFTWARE IS FURNISHED UNDER A LICENSE A 
Y IN ACCORDANCE WITH THE TERMS OF S 
7 SION OF THE 


T 
H E H 
ES THEREOF MAY NOT BE PROVIDED OR sb E . 
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® 
® 
ie TRANSFERRED. ‘ 
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® 
® 
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1 
1 
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1 
1 
1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
: * CORPORATION. 
* 
1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
’ !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
1 Ie 
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! FACILITY: General Purpose Library 
i ABSTRACT: 


MEUM OO ONAUES WN QOD ODNOUE WN OOONOU SW 
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Contains a routine to return the system-wide default Line Printer length, 
as determined by the logical name SYSS$LP_LINES. 


i ENVIRONMENT: User mode - AST reentrant 


SoOoOoOoOoOoOoOoOoOoooooooooooo 


i AUTHOR: Richard Grove and Steven Lionel, CREATION DATE: 10-Sep-1979 
i EDIT HISTORY: 


i 1-001 = Original. 
!' 1-002 - laaleve comments and remove OTSMAC. JBS 31-OCT-1979 
Py LIBPROLOG. Change high Limit from 99 to 255. SBL 18-Jan-1983 
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IBSLP_LINES Fetch ay te! of Lines per page 16- Sep-1984 AX=-11 Bliss-32 V4.0-74 Page 2 
1-008 Dec Larat ion site 1o28eb= 1584 1254950 CTARTL SREILTOLPL INE B52; 1 "2s 
; 23 ‘3 }  oohal Declarations’ 
$ 24 50 1 ! PROLOGUE FILE: 
3 38 $2) : i 
; ¢ 038 : REQUIRE 'RTLIN:LIBPROLOG'; ! LIBS declarations 
H 56 0125 1! 
; 7 01 8 1 | TABLE OF CONTENTS: 
; 01 1/ 
; FF 0128 1 
; 60 o1 9 1 FORWARD ROUTINE 
3 e 4 , : LIBSLP_LINES; ! Get default Line Printer Length 
; 8 4 ; 1! 
; 664 1 1 ! MACROS: 
; 0134 1! 
; 666 ate 1! NONE 
os Or 0136 1: 
; 68 0137 1 ' EQUATED SYMBOLS: 
; & 0138 1! 
; 0139 1! NONE 
eee 0140 1! 
; 72 0141 1 | OWN STORAGE: 
; b14¢ 1/ 
: 74 014 1} NONE 
. 2 0144 1! 
: 76 0145 1 | EXTERNAL REFERENCES: 
: 77 0146 1! 
; «678 0147 1 
3 79 0148 1 EXTERNAL a 
; & 0149 #1 OTSSCVT_TI_L; ! Convert ASCII text string to longword integer 
; «81 0150 1 
| 
| 
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LIBSLP_LINES Fetch number of Lines per page 16-Sep-1984 01:07:1 AX-11 Bliss-32 V4.0-74 P 
1-008 LIBSLP_LINES = Fetch number sf Lines per page 14-Sep-19 4 1339950 LIBRTL.SRCJLIBLPLINE .B32;1 vt (33 
83 0151 ZSBTTL'LIBSLP_LINES = Fetch number of Lines per page' | 
2 o ¢ GLOBAL ROUTINE LIBSLP_LINES = | 
86 154 'e 
Hf 0156 ' FUNCTIONAL DESCRIPTION: 
89 01 5 LIBSLP_LINES computes the default number of Lines on a 
90 8138 Line-printer page. This procedure (or an equivalent computation) 
91 0159 should be used by all native-mode VAX/VMS utilities that produce 
8160 Listing’ files and do pagination. 
94 016 U.S. standard paper stock permits 66 Lines of printing on a 
32 a16s physical page. "Tren this volue, the utility should deduct: 
44 193 1. 3 lines for top margin 


2. 3 lines for bottom margin 
3. 3 Lines for Listing heading information, consisting of: 
1. Language-processor identification line 


3. One blank Line 

The algorithm used by LIBSLP_LINES is: 

1. Translate the logical name SYSS$LP_LINES 
2. Convert the ASCII value obtained to a binary integer 
3. Verify that the resulting value is in the range (30:255]. 
4. If any of the steps above fail, return the default U.S. 
paper size of 66 lines. 
CALLING SEQUENCE: 


LP_length.wl.v = LIBSLP_LINES ( ) 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
System-wide (or user-defined) logical name SYSS$LP_LINES 
IMPLICIT OUTPUTS: | 
NONE 
ROUTINE VALUE : | 
Default number of Lines on a Physical Line Printer page. | 


| 
| 
2. Source-program identification Line 
| 
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IBSLP_LINES Fetch number of Lines per page 16-Sep-1984 01:07:1 AX-11 Bliss-32 V4.0-74 Page 4 
5-008 LIBSLP_LINES = Fetch number af lines per page 14- ae 935953) LIBRTL.SRC (TSLPLINE 682;1 ’ (3) 
: 140 98 1! If the logical name translation or conversion to binary | 
: 123 8 : } fails, a default value of 66 is returned. 
; 128 11. 1°! SIDE EFFECTS: 
; 61446 \¢ 7! 
; 6145 1 7 fF NONE 
: 146 14613 
: 14 0215 1 !-- 
; 148 0 1 1 
> 149 021 BEGIN 
: 150 0218 
; 13] 9 19 LOCAL 
, 4 0 LOGDES : BLOCK (8, BYTE), ! String descriptor for logical name 
; 0221 N ° ! Accumulator for integer conversion | 
: 154 0 ¢ NUMDES : BLOCK e. BYTE), ! String descriptor for translated string 
: 133 8 Z NUMSTR : VECTOR CLNMSC_NAMLENGTH, BYTE];! Buffer for translated string | 
: 157 0225 2 !+ | 
; 138 8 37 : Initialize descriptors for logical name and translated string 
: 160 0228 LOGDES pores cL Assy = DSCSK_CLASS_S; 
; 6161 $594 LOGDES CDSCSB_DTYPEJ = DSC$K_D : 
; 16¢ 0230 LOGDES CDSCSWILENGTH] = ZCHARCOUNTT'SYSSLP_LINES');: 
: 16 0231 LOGDES CDSCSA_POINTER] = UPLIT BYTE('’SYSSLP_LINES'S; 
; 164 OSa¢ DSC$B_CLASS] = DSCSK_CLASS_S; 
s 165 023 NUMDES [DSC$B_D = DSCSK_DTYFE_T; 
: 166 0234 NUMDES COSCSWILENGTH) = LNMSC NAML ENGTH; 
; Hy 4 b5%2 S is NUMDES CDSCSA_POINTER]) = NUMSTR (OJ; 
3; 169 0237 § ! Translate and convert the Logical name SYS$LP_LINES to determine | 
; 170 0238 ! default number of Lines on LP Listing page. | 
| BB BE | 
; 158 0241 : IF $STRNLOG (LOGNAM = LOGDES, RSLBUF = NUMDES, RSLLEN = NUMDES CDSC$W_LENGTH)) 
3; 174 Bseg . THEN 
3: 175 024 $ 
: 176 0244 IF OTSSCVT_TI_L (NUMDES, NUMBER, 4, 1) 
s W77 0245 THEN 
s 178 0246 
; 179 0247 IF .NUMBER GEQ 30 AND .NUMBER LEQ 255 THEN RETURN .NUMBER; 
: 180 0248 
: «181 0249 + ; 
3 186 0530 The default value for U.S. standard paper stock is 66. 
3: (184 0954 RETURN 66; 
3; «6185 0255 1 END; ! of routine LIBSLP_LINES 
-TITLE LIBSLP_LINES Fetch number of Lines per page 
SIDENT \1-003% 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
53 45 4—E 49 4C SF 50 4C 24 53 59 53 00000 P.AAA: .ASCII \SYSS$LP_LINES\ : 


-EXTRN OTSSCVT_TI_L, SYSSTRNLOG 


] 
8 
LIBSLP_LINES Fetch number of Lines per 16s Sep AX=-11 ss-32 V Page 5 
1-008 LIBSLP P_LINES = Fetch number sf lines per page 14-Sep 7138 93: 95 8 LIBRT i°§ SCTSLPLINE. yf 2;1 . (3) 
0000 «ENTRY L $LP_LINES, Save nothing ; 0152 ‘ 
5E 4335 E 3 MOVAB 153i SP : : 
F8 AD 010E0 § p MOVL 94732, LOGDES : 0230) : 
FC AD Eo AF : F MOVAB PLARA Lenk: +4 : 0231 | ; 
FO AD O10EOQOFF =F p 014 MOVE, —#17694995., NUMDES > 0234 : 
FO AD 04 AE 9E bas MOVAB NUMSTR, NUMDES+4 $ 5 35 ‘ 
7E 7C 00 j CLRQ -(SP) : 0241 : 
7E 04 88 CLAL -(SP) : - 
& AD 9F 5 PUSHAB NUMDES : ‘ 
F AD 9F 00028 PUSHAB NUMDES ; ‘ 
F AD 9F 00028 PUSHAB LOGDES $ ‘ 
000000006 90 98 Fe Be ; CALLS He SYSSTRNLOG ; ; 
6 E BLBC , 1$ 3 ‘ 
1 DD 00038 PUSHL #1 7 0244 | : 
4 DD OO03A PUSHL #4 3 ‘ 
08 AE 9F 00035C PUSHAB NUMBER ; ; 
FO AD 9F QOO3F PUSHAB NUMDES : ; 
000000006 00 4 FB 4k CALLS #4, OTSSCVT_TI_L F ; 
12 o € Boe BLBL . 3 ; 
1E 6E Di YO04C CMPL NUMBER, #30 3; 0247 : 
OD 19 OO04F BLSS : ; 
OOOOOOFF 8F 6E D1 00051 CMPL NUMBER, #255 ; ‘ 
04 14 00058 BGTR 1$ 3 ; 
50 6E 00 OOOSA MOVL NUMBER, RO 3 : 
04 00050 RET Pie ; 
50 42 BF 9A 44 F4: 1$: MOVZBL #66, RO : 0038 ; 
04 9006 RET ; 025 ; 
; Routine Size: 99 bytes, Routine Base: _LIBSCODE + 000C ; 
; 186 0254 1 : 
s 61S7 0255 1 END ‘End of module LIBSLP_LINES . 
: 188 0256 1 : 
> «189 0257 0 ELUDOM : 
P4 PSECT SUMMARY : 
: Name Bytes Attributes : 
;  LIBSCODE 111 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | : 
| . 
3 Library Statistics : 
te ale eg, Een TR ERR Symbols -------- Pages Processing : 
$ File Total Loaded Percent Mapped Time : 


~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 10 i] 581 68 :00.8 
~8255$DUA28: (LIBRIL. OBJ IRT lil B.L32;1 36 0 0 8 700.1 
- | 


LIBS RPL INES ({SSeP LINES o peteh elebet tt Lines per page 1$-s¢ 900-1 38¢ 94; 95 8 a tart? SR REIL TeLPL ine 682: 1 (3 
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: COMMANL QUALIFIERS 
; BLISS/CHECK=CFIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#L1S$:LIBLPLINE/0BJ20B)$:LIBLPL INE MSRC$:LIBLPLINE/UPDATE=(ENH$:LIBLPLINE 


Size: 99 code + 12 data bytes 
Run Time: 00:03.0 

Elapsed Time: 00:13.5 

Lines/CPU Min: 
Newey Ak gy : 
poet Used: 
Compila 
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